From: Glenn Morris <rgm@gnu.org>
Date: Wed, 3 Nov 2010 07:42:27 +0000 (-0700)
Subject: Silence ispell.el compilation.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5808
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1f817b37b37bf14a6511fc487c2370cafb438f0e;p=emacs.git

Silence ispell.el compilation.
* lisp/textmodes/ispell.el (ispell-init-process): On Emacs, always use
set-process-query-on-exit-flag.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 593c06b1e7c..1f0dd5af7e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-03  Glenn Morris  <rgm@gnu.org>
 
+	* textmodes/ispell.el (ispell-init-process): On Emacs, always use
+	set-process-query-on-exit-flag.
+
 	* textmodes/reftex-toc.el (name1, dummy, dummy2): Remove unused decs.
 
 	* net/dbus.el (dbus-name-owner-changed-handler): Doc fix.
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index b75b232b43c..eab64fbc432 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2740,9 +2740,11 @@ Keeps argument list for future ispell invocations for no async support."
 	(if extended-char-mode		; ~ extended character mode
 	    (ispell-send-string (concat extended-char-mode "\n"))))
       (if ispell-async-processp
-	  (if (fboundp 'set-process-query-on-exit-flag) ;; not XEmacs
+	  (if (featurep 'emacs)
 	      (set-process-query-on-exit-flag ispell-process nil)
-	    (process-kill-without-query ispell-process))))))
+	    (if (fboundp 'set-process-query-on-exit-flag)
+		(set-process-query-on-exit-flag ispell-process nil)
+	      (process-kill-without-query ispell-process)))))))
 
 ;;;###autoload
 (defun ispell-kill-ispell (&optional no-error)